Monte Carlo Methods for 
Integration of Fractal Morphic 
Energy Number Reductionist 
Mappings to the, "Reals." 


by Parker Emmerson, with thanks to Jehovah, the Living One 


Introduction: 


Concrete: Inasmuch as | have criticized the necessity, conception, utility, functionality, validity, 
and actual existence of the so - called, "Real," numbers via the homomorphic, topological methods 
described in my works, , it is still possible to reduce the fluidity of the symbol game of Quasi - Quanta 
symbolic entanglement of Energy Numbers for the sake of demonstrating potential graph forming and 
calculator applications . It is arguable the the, "Real," numbers are not really even real . While if it were 
up to me, I'd call them something else, it seems the, "consensus," will remain rigid and wrong in their 
terminology as usual in this realm . The point of this paper is not to show you how good | am at program- 
ming, I'm not. The point of this paper is to show you that the beauty and imagination of the functional, 
homological, topological calculus of Energy Numbers and fractal morphisms can be reduced by numeri- 
cal methods into a graphble relationship by one or more modal interpretations . l'm sure one more 
advanced in programming would be able to substantially interpret Energy Numbers in more complex 
and meaningful patterns and make more advanced graphing analogs to their functionality . Just, the 
premise of doing so, while most likely flawed, could be potentially fruitful in the sense that we get to 
generate graphing calculator diagrams in potentially novel ways . 


We start by noting the formality of the 


function R = fe - sin? e) +n") . tan rtan? e| |dide, 
9 A 


Thus, the integral can be performed, 
Integrate[((2 Sin[6] ^2) «n^ (n- 1)) Tan[t] Tan[6] ^2, (98, 0, aj] 
(4an"+6an@-n@Sin[2 a] - 4 (n" «nag) Tan[a]) Tanrt] 


——— Ó——— — — —X—————Á— f Relay oe | LAER 
4n 


which is graphable : 
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(4an"+6an@-n@Sin[2 a] -4 (n"«n9) Tan[a]) Tanrt] 
in = Manipulate [ContourPlotsp| - —_——__ ANN S A 
4n 


(m, 0, 1), (n, 0,1}, (2, 6, 1}], {a, 9, 1}, (t, 6, 1}] 


í E 


Out[*]- 


Programs: 


Upon initial attempts to run the monte carlo simulation on the integral, | was met with a number of 
problems with recursion : 
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i-j MCR = -1« Sum[D[1, x^j] / (Tan[e.h[n]] - 9) , {j, 1, n}]; 
EData - 
(n, lL} > ((Exp[b^ (u-&)] / (Exp[n^m] - Exp[l^m])) « Exp[- (1/m) h[n]] * Exp[Tan[t]]) 5 
ni-2; 
11-290; 
01-0; E1 = 1; Ps1 = 1; b1 = 2; u1 = 1; £1 = 0; 
MonteCarloDatal = Reap [Do [01 = 61+ RandomReal[]; 
E1 = E£1«RandomReal[]; 
Ps1 = Ps1 » RandomReal[]; 
b1 = b1 x RandomReal[] ; 


Q1 = Q1 x RandomReal[{0, 1}]; 
nl = n1 + RandomInteger[{1, 10}]; 
l1 = l1 + RandomInteger[{1, 10}]; 


hn = RandomInteger[{1, 10}]; 
Sow[mcR ((b1^ (u1- £1)) / (Tan[t]^2 + Sqrt[Product[h[n] - Ps1, (n, A}]])) * 
(01* EData[n1, 11])], 40]][[2, 111; 


barChart = BarChart[HistogramList[MonteCarloDatal, 10][[2]], 
ChartLabels > Placed[HistogramList[MonteCarloDatal, 10][[1]], Above], 
AxesLabel > (Style["x", 14, Bold], Style["N", 14, Bold]}, PlotRange > All]; 


Show[barChart, PlotRange > Full] 
- $RecursionLimit: Recursion depth of 1024 exceeded during evaluation of 0.230294 1. 


-) $RecursionLimit: Recursion depth of 1024 exceeded during evaluation of 
Periodic ‘PeriodicSequencePeriod[—0.17407, n]. 


- $RecursionLimit: Recursion depth of 1024 exceeded during evaluation of 
Periodic PeriodicLibraryDump ‘res = Periodic PeriodicLibraryDump periodicSequenceHeadDecomposition[— 
0.17407 +1. h[n], n, Plus, False]. 


- General: Further output of $RecursionLimit::reclim2 will be suppressed during this calculation. 


- $RecursionLimit: Recursion depth of 1024 exceeded during evaluation of 
Periodic PeriodicLibraryDump ‘res = Periodic" PeriodicLibraryDump PeriodicSequenceHeadDecomposition[1. ( 
—0.17407 + 1. h[n]), n, Plus, False]. 


-  $RecursionLimit: Recursion depth of 1024 exceeded during evaluation of 


RuleCondition[Periodic "PeriodicLibraryDump res, FreeQ[Periodic PeriodicLibraryDump ‘res, $Failed]]. 


- $RecursionLimit: Recursion depth of 1024 exceeded during evaluation of 
Simplify' PWPresentQ[1. (—0.17407 + 1. h[n])] && ! Simplify° PWPresentQ[((n, 1, A}}]. 


- General: Further output of $RecursionLimit::reclim2 will be suppressed during this calculation. 


- $RecursionLimit: Recursion depth of 1024 exceeded during evaluation of 


Product’ ProductPeriodicDump 'res1 = Periodic PeriodicSequenceDecompose[-0.17407 + 1. h[n], n, Plus]. 


- $RecursionLimit: Recursion depth of 1024 exceeded during evaluation of RuleCondition[«1>>]. 


-  $RecursionLimit: Recursion depth of 1024 exceeded during evaluation of 
Sum PiecewisesumProductDump res = Sum PiecewisesumProductDump productPiecewiseThread[—0.17407 
* 1. h[n], ín, 1, Aj]. 
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- General: Further output of $RecursionLimit::reclim2 will be suppressed during this calculation. 


-  $RecursionLimit: Recursion depth of 1024 exceeded during evaluation of 
Product'ProductPeriodicDump 'res1 = Product ProductPeriodicDump 'PeriodicPower[1. (—0.17407 + 1. h[n]), {n 
11, AJ]. 


- $RecursionLimit: Recursion depth of 1024 exceeded during evaluation of 
If[FreeQ[Product'ProductPeriodicDump 'res1, $Failed], Throw[Product'ProductPeriodicDump 'res1]]. 


-) $RecursionLimit: Recursion depth of 1024 exceeded during evaluation of 
Product’ ProductPeriodicDump res1 = Product" ProductPeriodicDump 'PeriodicPlus[1. (—0.17407 + 1. h[n]), (n, 
1, AJ]. 


- General: Further output of $RecursionLimit::reclim2 will be suppressed during this calculation. 


- $RecursionLimit: Recursion depth of 1024 exceeded during evaluation of 
Message[Message::msgl, Hold[{$RecursionLimit::reclim2, $RecursionLimit::reclim2, $RecursionLimit::reclim2, 
General::stop}]]. 


-) $RecursionLimit: Recursion depth of 1024 exceeded during evaluation of {$RecursionLimit::reclim2}. 


* $RecursionLimit: Recursion depth of 1024 exceeded during evaluation of 


{Outputstream| ren J 


- General: Further output of $RecursionLimit::reclim2 will be suppressed during this calculation. 


-  $RecursionLimit: Recursion depth of 1024 exceeded during evaluation of 
Message[Message::msgl, Hold[($RecursionLimit::reclim2, $RecursionLimit::reclim2, $RecursionLimit::reclim2, 
General::stop]]]. 


-  $RecursionLimit: Recursion depth of 1024 exceeded during evaluation of {$RecursionLimit::reclim2}. 


-  $RecursionLimit: Recursion depth of 1024 exceeded during evaluation of 
f Name: stdout 
[outputstream| USD J 


- General: Further output of $RecursionLimit::reclim2 will be suppressed during this calculation. 


- $RecursionLimit: Recursion depth of 1024 exceeded during evaluation of 
Message[Message::msgl, Hold[{$RecursionLimit::reclim2, $RecursionLimit::reclim2, $RecursionLimit::reclim2, 
General::stop]]]. 


-  $RecursionLimit: Recursion depth of 1024 exceeded during evaluation of ($RecursionLimit::reclim2]. 


- $RecursionLimit: Recursion depth of 1024 exceeded during evaluation of 


[outputstream| e l 
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Skeleton Key 


inp p= In[15] := 
Plot[Evaluate[Integrate[((2 Sin[60] ^2) +n (m- 1)) Tan[t] Tan[0] ^2, (60,0, x}]], 
(x, 0, x), PlotRange > All] 


Out[15] = Graphics[( (RGB[0.368417, 0.506779, 0.709798], 
Line[((0., 0.}, (0.785398, -0.0854466) , (1.5708, 0.362941}, 
(2.35619, 0.593001}, (3.14159, 0.211337}, (3.92699, -0.139387}, 
(4.71239, 0.0889663) , (5.49779, 0.347876) , (6.28319, 0.211337}}]}}] 


+ SetDelayed: Tag In in In[15] is Protected. 
oupj. $Failed 


+ Set: Tag Out in %15 is Protected. 


Out[*]- 


The recursion problems were overcome with : 
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i;j- MCR = -1 + Sum[D[1, x^j] / (Tan[e.h[n]] - 89) , (j, 1, n}]3 
EData - 
(n, 1) > ((Exp[b^ (u-&)] / (Exp[n^m] - Exp[l^m])) « Exp[- (1/m) h[n]] « Exp[Tan[t]]) ; 


MonteCarlo[f , (xmin , xmax_}, (ymin , ymax_}, 
{emin_, emax ), (nmin , nmax_}, Qu ] :- Module[{x, y, 9, n), 
Sample[f, (xmin, xmax}, (ymin, ymax}, {omin, Omax}, {nmin, nmax}, Qu] « Integrate[ 
f «Qu, (x, xmin, xmax) , (y, ymin, ymax}, (60, Əmin, omax), (n, nmin, nmax}]] 


MonteCarloData = Reap[Do[61 = 61 + RandomReal[{0, 2 Pi)]; 
E1 = =1* RandomReal[]; 
Ps1 = Ps1 x RandomReal []; 
b1 = b1 x RandomReal[] ; 
Q1 = Q1 x RandomReal[{0, 1j]; 
nl = RandomInteger[{1, 19)]; 
11 = RandomInteger[{1, 19)]; 
hn = RandomInteger[{1, 19)]; 
SampleDatal = mcR ((b1^ (u1- £1))/ 
(Tan[t] ^2 * Sqrt[Product[h[n1] - Ps1, (n1, A}]])) * (O1«EData[n1, 11]); 
TimeDatal = Round[AbsoluteTime[]- StartTime, 0.1]; 
Sow[SampleDatal, TimeDatal], 40]][[2, 11]; 


barChart = BarChart[HistogramList[MonteCarloData, 10][[2]], 
ChartLabels 5 Placed [HistogramList [MonteCarloData, 10][[1]], Above], 
AxesLabel > (Style["x", 14, Bold], Style["Time (s)", 14, Bold]}, PlotRange > All]; 


Show[barChart, PlotRange > Full] 
- General: x’ is not a valid variable. 


- General: x! is not a valid variable. 


Sum FiniteSumDur m : à 
Sum FinitesumDumP ! is not a valid variable. 


+ General: x 
* General: Further output of ivar will be suppressed during this calculation. 

- $RecursionLimit: Recursion depth of 1024 exceeded during evaluation of 4.14254 + 61. 
- $RecursionLimit: Recursion depth of 1024 exceeded during evaluation of 0.139721 81. 


- $RecursionLimit: Recursion depth of 1024 exceeded during evaluation of 0.136079 Ps1. 


+ General: Further output of $R rs ser will be suppressed during this calculation. 


Out[* ]- 


Info ]:= 
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Time (s) 


10r 


-1.0 } 


tVec = {0., 0.785398, 1.5708, 2.35619, 
3.14159, 3.92699, 4.71239, 5.49779, 6.28319, 7.06858}; 


rVec = Table[If[i = 0, 0., 0.785398], {i, 0, 9}]; 


cang = Tuples[{tVec, rVec}]; 
cycol = Append[cang, (0., 0.}]3 


Graphics[ 
Table[{Hue[(4*i+j+2) / (4 Length[cycol] +2)], Line[{cycol[[i]], cycol[[j]]}]}, 
(i, 1, Length[cycol]}, {j, i+1, Length[cycol] }]] 


dydxVec = Table[{If[i - 0, 0., 0.8], If[i = 0, 0., 0.5]}, {i, 0, 9)]; 


cydcol = PairwiseSum[cang, dydxVec] ; 


Graphics[ 
Table[(Hue[(4 «i +j) / (4*Length[cydcol])], Line[{cydcol[[i]], cydcol[[j]]}]}, 
(i, 1, Length[cydcol]}, {j, i * 1, Length[cydcol])]] 


| 7 
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In, p= tVec = (0., 0.785398, 1.5708, 2.35619, 
3.14159, 3.92699, 4.71239, 5.49779, 6.28319, 7.06858) ; 


rVec = Table[If[i = 0, 0., 0.785398], (1, 0, 9)]; 


cang = Tuples[{tVec, rVec}];3 
cycol = Append[cang, {0., 0.}]3 


Graphics |Table [| {Hue | ( (V (-1.1294090667581471' «^18 i + 


8.987551787368176 «^16 i? + 3.5481432270250993' «^18 Sin[j]?) )/ 


4-12.566370614359172' i+ i? + 39.47841760435743' Sin [j] E | )/ 


(4 « Length[cycol] +2) , Line[(cycol[[i]], cycott 31121); 


(i, 1, Length[cycol]}, {j, i «1, Length [cycol] }] | 
dydxVec = Table[{If[i == 0, 0., 0.8], If[i = 0, 0., 0.5]}, (1, 0, 9)]; 
cydcol = PairwiseSum[cang, dydxVec]; 
Graphics[ 


Table[(Hue[(4 «i *j) / (4*Length[cydcol])], Line[{cydcol[[i]], cydcol[[j]]}]}, 
(i, 1, Length[cydcol]}, {j, i * 1, Length[cydcol])]] 


EN = 


T 
i, 


L— 
Sa 


Treasure Map 


Interpretation: 


From the graph, and the zooming in on the graph, we can see that the mark, x, marks a spot that is 
perpetually, immeasurably close to the line, but sadly, not exactly on the line . This is the dilemma of 
quantum mechanics, essentially . It is evidentiary of a misconception within many commonly accepted 
functions of standard calculi in the literature . 1/co is too often interpreted as 0. The 1/% is not on the 
line, but infinitessimally close to the line, symbolically, representativly indicated here in this graph by 
Mathematica . As we zoom in, the spot marked, x, will ever approach exactness with the line, but will 
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never actually be on the line. | would argue that essentially, all statistical interpretations of atomistic, 
quark, so called, "quantum," phenomena are actually either 1) poor descriptions of the phenomenon 
being measured due to inadequate measurements, 2) the equations are accurately describing the 
phenomenon, and the phenomenon of the so called, "material universe," is simply an imprecise simula- 
tion of a more precise, linguistic calculus or, 3) The perceptual conception of the phenomenon as 
"statistical," or, "probablistic," is actually recursively bringing about the bad math, and adjusting our 
perceptions through more advanced mathematical language will actually entangle the phenomenon 
into becoming more in line with the language used to describe it once it has been adapted to Energy 
Number theory . 


Time (s) 


10r 


05- 


0.0 r—X 
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